home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
VINDEX.DIR
/
00039_Script_aIndexManager
< prev
next >
Wrap
Text File
|
1995-09-06
|
5KB
|
139 lines
--òò╩aIndexManager
property pTopicMenu , pLatchedAlpha
on birth me
return me
end
on testIndexRollover me
--set the trace = true
set thisAlpha = the mouseCast
if (thisAlpha > 0 and thisAlpha < 27) then
set thisAlphaIndex = getAt(pTopicMenu,thisAlpha)
setTopicMenu(thisAlphaIndex)
clearRefLinkIcon(thisAlphaIndex)
else
if (objectP(pLatchedAlpha) ) then
--òò because the art department could not generate the
--òò the highlight art fro the topic menu we need to
--disable the highlight fucnctionality (commented out below)
--if (rollover(2)) then
-- secondaryHilight (sub-menu)
-- set vOffset = the mouseV
-- setTopicHiLight(pLatchedAlpha , vOffset)
-- else
-- revert to latched topic menu
setTopicMenu(pLatchedAlpha)
-- end if
end if
end if
end
on clickAlpha me
set thisAlpha = the mouseCast
if (thisAlpha >= 1 and thisAlpha <= 26) then
set pLatchedAlpha = getAt(pTopicMenu,thisAlpha)
clearRefLinkIcon(pLatchedAlpha)
end if
end
on clickTopic me
set vOffset = the mouseV
selectTopicFromMenu(pLatchedAlpha,vOffset)
end
on clickRefLink me , horzPos,vertPos
set vOffset = vertPos --the mouseV
clickRefLink(pLatchedAlpha,vOffset ,horzPos,vertPos)
end
on resetIndex me
reset(pLatchedAlpha )
end
on initIndex me
set pTopicMenu = []
set indexCount = 1
--òò A Topic Menu
set topicObjClass = the number of cast "aTopicMenu"
set thisMenu = (birth (script topicObjClass, 178 , 178 , 2 , 177 , 41 , 210, 7,0))
append pTopicMenu, thisMenu
set pLatchedAlpha = thisMenu
--òò B
set thisMenu = (birth (script topicObjClass, 179 , 179 , 2 , 177 , 41 ,221, 13,0))
append pTopicMenu, thisMenu
--òò C
set thisMenu = (birth (script topicObjClass, 180 , 180 , 2 , 177 , 41 ,235, 14,8))
append pTopicMenu, thisMenu
--òò D
set thisMenu = (birth (script topicObjClass, 181 , 181 , 2 , 177 , 41 ,265, 6,0))
append pTopicMenu, thisMenu
--òò E
set thisMenu = (birth (script topicObjClass, 182 , 182 , 2 , 177 , 41 ,276, 4,0))
append pTopicMenu, thisMenu
--òò F
set thisMenu = (birth (script topicObjClass, 183 , 183 , 2 , 177 , 41 ,287, 10,10))
append pTopicMenu, thisMenu
--òò G
set thisMenu = (birth (script topicObjClass, 184 , 184 , 2 , 177 , 41 ,309, 4,0))
append pTopicMenu, thisMenu
--òò H
set thisMenu = (birth (script topicObjClass, 185 , 185 , 2 , 177 , 41 ,320, 10,0))
append pTopicMenu, thisMenu
--òò I
set thisMenu = (birth (script topicObjClass, 186 , 186 , 2 , 177 , 41 ,331, 5,0))
append pTopicMenu, thisMenu
--òò J
set thisMenu = (birth (script topicObjClass, 187 , 187 , 2 , 177 , 41 ,342, 1,0))
append pTopicMenu, thisMenu
--òò K
set thisMenu = (birth (script topicObjClass, 188 , 188 , 2 , 177 , 41 ,353, 2,0))
append pTopicMenu, thisMenu
--òò L
set thisMenu = (birth (script topicObjClass, 189 , 189 , 2 , 177 , 41 ,364, 5,0))
append pTopicMenu, thisMenu
--òò M
set thisMenu = (birth (script topicObjClass, 190 , 190 , 2 , 177 , 41 ,375, 5,0))
append pTopicMenu, thisMenu
--òò N
set thisMenu = (birth (script topicObjClass, 191 , 191 , 2 , 177 , 41 ,386, 4,0))
append pTopicMenu, thisMenu
--òò O
set thisMenu = (birth (script topicObjClass, 192 , 192 , 2 , 177 , 41 ,397, 3,0))
append pTopicMenu, thisMenu
--òò P
set thisMenu = (birth (script topicObjClass, 193 , 193 , 2 , 177 , 41 ,408, 1,0))
append pTopicMenu, thisMenu
--òò Q
set thisMenu = (birth (script topicObjClass, 0 , 0 , 0 , 177 , 41 ,45, 0,0))
append pTopicMenu, thisMenu
--òò R
set thisMenu = (birth (script topicObjClass, 194 , 194 , 2 , 177 , 41 ,419, 5,0))
append pTopicMenu, thisMenu
--òò S
set thisMenu = (birth (script topicObjClass, 195 , 195 , 2 , 177 , 41 ,430, 11,9))
append pTopicMenu, thisMenu
--òò T
set thisMenu = (birth (script topicObjClass, 196 , 196 , 2 , 177 , 41 ,452, 14,0))
append pTopicMenu, thisMenu
--òò U
set thisMenu = (birth (script topicObjClass, 0 , 0 , 0 , 177 , 41 ,45, 0,0))
append pTopicMenu, thisMenu
--òò V
set thisMenu = (birth (script topicObjClass, 197 , 197 , 2 , 177 , 41 ,468, 2,0))
append pTopicMenu, thisMenu
--òò W
set thisMenu = (birth (script topicObjClass, 198 , 198 , 2 , 177 , 41 ,472, 6,0))
append pTopicMenu, thisMenu
--òò X
set thisMenu = (birth (script topicObjClass, 0 , 0 , 0 , 177 , 41 ,45, 0,0))
append pTopicMenu, thisMenu
--òò Y
set thisMenu = (birth (script topicObjClass, 199 , 199 , 2 , 177 , 41 ,479, 1,0))
append pTopicMenu, thisMenu
--òò Z
set thisMenu = (birth (script topicObjClass, 0 , 0 , 0 , 177 , 41 ,45, 0,0))
append pTopicMenu, thisMenu
end